home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / cobol.arc / DEMO.CBL < prev    next >
Text File  |  1985-08-26  |  1KB  |  56 lines
  1.  IDENTIFICATION DIVISION.
  2.  PROGRAM-ID.
  3.      DEMO.
  4. ************************************************
  5. *                                              *
  6. * THIS IS A COBOL PROGRAM WHICH DEMONSTRATES   *
  7. * THE FORWARD REFERENCE MECHANISMS IN NPS      *
  8. * MICRO-COBOL.                                 *
  9. *                                              *
  10. ************************************************
  11.  
  12.  ENVIRONMENT DIVISION.
  13.  CONFIGURATION SECTION.
  14.  SOURCE-COMPUTER.
  15.      8080.
  16.  OBJECT-COMPUTER.
  17.      8080.
  18.  INPUT-OUTPUT SECTION.
  19.  FILE-CONTROL.
  20.      SELECT PRINT-FILE ASSIGN
  21.      PRT.FIL.
  22.      SELECT INPUT-FILE ASSIGN INP.FIL.
  23.  DATA DIVISION.
  24.  FILE SECTION.
  25.  FD  PRINT-FILE
  26.      LABEL RECORDS
  27.      OMITTED.
  28.  01 OUTPUT-LINE PIC X(80).
  29.  
  30.  FD INPUT-FILE
  31.     LABEL RECORDS OMITTED.
  32.  01 INPUT-LINE.
  33.    02 SEQ-NUMBER PIC X(6).
  34.    02 INFO       PIC X(74).
  35.  
  36.  WORKING-STORAGE SECTION.
  37.  01 A PIC 99.
  38.  01 B PIC 99.
  39.  
  40.  PROCEDURE DIVISION.
  41.  PARA-A.
  42.     ACCEPT A.
  43.     ACCEPT B.
  44.     IF A EQUAL B
  45.       PERFORM PARA-B
  46.     ELSE 
  47.       PERFORM PARA-C END-IF.
  48.     PERFORM PARA-B.
  49.     STOP RUN.
  50.  
  51.  PARA-B.
  52.     DISPLAY A.
  53.  
  54.  PARA-C.
  55.     DISPLAY B.
  56.